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problem solutions 



705 ELECTRONIC 
DATA-PROCESSING MACHINE 

ACTUAL AND AUTOCODER PROGRAMMING 



Form 22-6732-0 



PROBLEM 1. INPUT-OUTPUT (Tape to Card) 
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Select tape unit 1 
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Read tape record into memory 
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Select card punch 1 
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Punch record in card 
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Transfer to start. 



PROBLEM 2. INPUT -OUTPUT (Card to Tape) 
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Select card reader 1 
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Read card into memory 
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Select tape unit 1 
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WR 
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Write record on tape 


0024 


TR 


0004 












Transfer to start. 
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Select card reader 1 n 
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Read card into memory 
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Select tape unit 1 
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Write complete record on tape 
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Select printer 1 ' 
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11017 
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Print partial record on printer 
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TR 
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Transfer to start. 



Note: For greater visual clarity, memory addresses are expressed here as 5 digit fields. Note, 
however, that where the memory position is above 9999 the high order position becomes an alpha- 
betic character. Therefore, memory position 15742 is converted into 5742 with 01 zoning over the 
5. A 5 with 01 zoning over it is identical to a V, and the address may be expressed as V742 al- 
though designating the appropriate zoning over the numeric figure is preferable. Memory position 
24733 (in Model II which has 40, 000 positions of memory) becomes 4733 with 10 or minus zoning 
over the 4, i.e. M733. 



PROBLEM 4. ADDITION 
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Select tape unit 1 


0009 
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Read record into memory 


0014 
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Reset add factor A 
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Add factor B to produce T 
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Store T in memory 
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Select tape unit 2 
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WR 
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Write record on tape 


0039 


TR 
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Transfer to start. 



PROBLEM 5. ADDITION/SUBTRACTION 
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Select tape unit 1 
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Read record into memory 
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Reset add base pay 
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Add overtime pay 
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Subtract deductions 
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Store net pay 
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Select tape unit 2 
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Write record on tape 
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Transfer to start. 



PROBLEM 6. MULTIPLICATION 
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Select input tape unit 
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Read record into memory 
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00 


a023489 


+ 






Reset add A (rate) multiplier 
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Multiply by B (total hours) 
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Store product in memory 


0029 


SEL 


0202 












Select output tape unit 
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Write record on tape 


0039 


TR 
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Transfer to start. 



PROBLEM 7. MULTIPLICATION 
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Read record into memory 
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Store result in memory 
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Select tape unit 2 
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Write record on output tape 
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TR 
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Transfer to step 0004. 



PROBLEM 8. PARTIAL PAYROLL PROBLEM 
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R add hours worked-multiplier 
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Multiply by rate per hour 
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Round 
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Round 
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Transfer to start. 
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Transfer to start 



PROBLEM 10. DIVISION 
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Transfer to start. 
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PROBLEM 12. LOAD/COMPARE 
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Write record on tape 
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Transfer to start 
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Transfer to start. 



PROBLEM 13. SEQUENCE CHECK 
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Tr to start. 
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PROBLEM 14. END OF FILE 
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Read record 
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To end of file routine 
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Rewind output tape 
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Message to operator. 
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PROBLEM 15. END OF FILE 
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Store result 
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Write record 
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Record TM output tape 
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Rewind output tape 
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Record TM output tape 
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End of tape, put on new reel. 
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PROBLEM 16. RECEIVE AND TRANSMIT USING ACC. 00 
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Input tape unit 
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Designate output area 


0049 


TMT 


6004 


00 










Transmit to output area 


0054 


SEL 


0201 












Output tape unit 


0059 


WR 


11560 


00 










Write record 


0064 


TR 


0034 












Tr to start of main routine. 



PROBLEM 17. RECEIVE AND TRANSMIT USING ASU 01-15 



INSTR. 
LOCATION 


INSTRUCTION 


STOR. 
CODE 


ACCUMULATOR 00 


Z 



AUXILIARY 
STORAGE 01.15 


z 
o 

t/J 


EXPLANATION 


OPER. 


ADDRESS 


0004 


SET 


0004 


04 






a0000 


+ 


Prepare ASU 04 


0009 


SET 


0007 


07 






aOOOOOOO 


+ 


Prepare ASU 07 


0014 


SET 


0001 


01 






aO 


+ 


Prepare ASU 01 


0019 


LOD 


0905 


01 






a* 


+ 


Group mark 


0024 


UNL 


6227 


01 






a* 


+ 


Put G/M at end of output area 
























































0064 


SEL 


0200 












Input tape unit 


0069 


RD 


1017 












Read record 


0074 


RCV 


6212 












Designate output field C 


0079 


TMT 


1028 


04 










Transmit field C 


0084 


TMT 


1017 


04 










Transmit field A 


0089 


TMT 


1021 


07 










Transmit field B 


0094 


SEL 


0201 












Output tape 


0099 


WR 


6212 


00 










Write record 


0104 


TR 


0064 












Tr to start of main routine 
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PROBLEM 18. RECEIVE AND TRANSMIT 



INSTt. 
LOCATION 


INSTRUCTION 


STOR. 
CODE 


ACCUMULATOR 00 


Z 

o 


AUXILIARY 
STORAGE 01-15 


z 



EXPLANATION 


OPER. 


ADDRESS 


0004 


SET 


0004 


06 






a0000 


+ 


Prepare ASU 06 


0009 


SET 


0001 


07 






aO 


4- 


Prepare ASU 07 


0014 


LOD 


10000 


07 






a * 


+ 


Group mark 


0019 


UNL 


5065 


07 






a * 


+ 


Put G/M at end of output record 


0024 


UNL 


19370 


07 






a* 


+ 


Put G/M at end of variation record 


0029 j 


SET 


0005 


05 






aOOOOO 


+ 


Prepare ASU 05 




















0099 


BEL 


0200 












Input master tape 


0104 


^D 


16035 












Read record 


0109 


BEL 


0202 












Input variation tape 


0114 


RD 


19361 












Read record 




















0119 


LOD 


19365 


05 






a32561 


+ 


Load employee no. 


0124 


CMP 


16039 


05 






a32561 


+ 


Comp employee numbers 


0129 


TRE 


0154 












Transfer on equal 


0134 


TRH 


0164 












Transfer on high 


0139 


BEL 


0500 












Select typewriter 


0144 


Wr 


19361 


00 










Write variation record 


0149 


TR 


0099 












Transfer 


0154 


RCV 


16040 












Designate master rate field 


0159 


TMT 


19366 


06 










Transmit rate 


0164 


RCV 


5054 












Designate output work area 


0169 


TMT 


16039 


00 










Transmit master record 


0174 


SEL 


0201 












Select output tape 


0179 


WR 


5050 


00 










Write record 


0184 


TR 


0099 












Transfer to start. 



PROBLEM 19. READ WHILE WRITING 



INSTR. 
LOCATION 


INSTRUCTION 


STOR. 
CODE 


ACCUMULATOR 00 


z 
o 

1/1 


AUXILIARY 
STORAGE 01-15 


S 


r 


OPER 


ADDRESS 


</) 




0004 


SET 


0001 


01 






a0 


+ 


Prepare ASU 01 


0009 


LOD 


1505 


01 






a* 


+ 


Group mark 


0014 


UNL 


12060 


01 






a* 


+ 


Put G/M in output record 


0019 


SEL 


0200 












Input tape unit 


0024 


RD 


6000 












Read first record 
























































0034 


RCV 


11584 












Designate output work area 


0039 


TMT 


6004 


00 










Transmit to output work area 


0044 


SEL 


0200 












Input tape unit 


0049 


RWW 


6000 












Prepare to read while writing 


0054 


SEL 


0201 












Output tape unit 


0059 


WR 


11580 


00 










Read and write simultaneously 


0064 


TR 


0034 












Transfer to main routine. 
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PROBLEM 20. READ WHILE WRITING 



G/M 
















01 


02 


03 


04 


05 


06 


07 


08 
















09 


10 


11 


12 


13 


14 


15 


INSTR. 
LOCATION 


INSTRUCTION 


STOR. 
CODE 


ACCUMULATOR 00 


z 
o 


AUXILIARY 
STORAGE 01-15 


21 


OPER. 


ADDRESS 


<Si 




0004 


SET 


0003 


12 






a000 


f 


Prepare ASU 12 


0009 


SET 


0005 


13 






aOOOOO 


f 


Prepare ASU 13 


0014 


SET 


0006 


14 






aOOOOOO 


f 


Prepare ASU 14 


0019 


SET 


0001 


01 






aO 


+■ 


Prepare ASU 01 


0024 


LOD 


2005 


01 






a$ 


+■ 


Group mark 


0029 


UNL 


15088 


01 






a* 


4- 


Put G/M in output record 


0034 


SEL 


0200 












Input tape 


0039 


RD 


1000 












Read first record 
























































0084 


RCV 


15063 








! 


Designate payroll no. output 


0089 


TMT 


1000 


12 










Transmit payroll no. to output 


0094 


RCV 


15068 












Designate emp. no. output 


0099 


TMT 


1003 


14 










Transmit emp. no. to output 


0104 


RCV 


15076 












Designate ins. output 


0109 


TMT 


1009 


13 










Transmit ins. to output 


0114 


RCV 


15083 












Designate adv. output 


0119 


TMT 


1014 


13 










Transmit adv. to output 


0124 


SEL 


0200 












Input tape 


0129 


RWW 


1000 












Prepare to read while write 


0134 


SEL 


0201 












Output tape 


0139 


WR 


15063 


00 










R/W simultaneously 


0144 


TR 


0084 












Transfer to main routine. 
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PROBLEM 21. Page 1 of 2 



Memory 


Ace. Storage 
Before 


Ace. 
Sign 




Ace. Storage 
After 


Ace. 
Sign 


Check 
Indicators 


ADD 6573 

b82V 

+ 
62243 


a61 

al34 

a3765 


+ 
+ 




a512 
a959 
1522 


+ 
+ 
+ 


Sign Check 


SUB A827 

$376 

$3274 


a28 

al2781 

a3274 


+ 




a855 

al2405 

aOOOO 


+ 
+ 


Sign Check 


R ADD b83S 

K375 

54381 


a7215 

al6 

a9654 


+ 
+ 




a832 
a375 
a381 


+ 

+ 


Sign Check 


R SUB 421 

b538X 

+ + 
53743 


a521 

al51 

a9 


+ 
+ 




a21 

a387 

a3743 


+ 


Sign Check 


MPY 560 
D120 

bl5 


a5 
a003 
a325 


+ 




a300 

a000360 

a04875 


+ 
+ 


Sign Check 


+ + 
DIV 765 

+ 
b5 

bl" 
A9 


a70 

a075 

a75 

a81 


+ 
+ 
+ 

+ 




a70 

al5 

aO 

a9 


+ 
+ 

+ 

+ 


Zero Indicator 

Overflow and 
Zero Check 

Sign Check 


+ 
LOAD A36 

DOEbJ 

563AB5 


a9 
a65431 
a32761 


+ 
+ 




at 
aDOEbJ 
a63AB5" 


+ 

+ 
+ 
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PROBLEM 21. Page 2 of 2 





Accumulator 


Ace. 








Storage 


Sign 


Memory Before 


Memory After 


STORE 


a37 


- 


643382 


643337 




a37982 


+ 


+ + + 
A65213A 


+ + 
A637982 




a21 


+ 


DOEbl5 


DOEb21 




a7 


- 


bA76532 


bA76537 


UNLOAD 


a219 


+ 


bAB5600 


bAB5219 




aDOEbJ 


+ 


DOEbM56 


DODOEbJ 




a!5 


- 


77B4681 


+ 
77B4615 



Instruction 


Accumulator 
Storage Before 


Ace. 
Sign 


Accumulator 
Storage After 


Ace. 
Sign 


SHOR 0001 
LENG 0002 
SHOR 0002 
LENG 0000 


a3976 

a7653 

a375 

a5762 


+ 

+ 

+ 


a397 

a765300 

a3 

a5762 


+ 
+ 

+ 


SET L 0004 
SET L 0005 


a006512 
a372 


+ 


a6512 
a00372 


+ 


ROUND 0001 
ROUND 0003 
ROUND 0004 


a796 
a37352 
a68712 


+ 
+ 


a80 

a37 

a7 


+ 
+ 
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PROBLEM 22. PAYROLL Page 1 of 2 



INSTR. 
LOCATION 


INSTRUCTION 


STOR. 
CODE 


ACCUMULATOR 00 


z 
o 


AUXILIARY 
STORAGE 01-15 


z 
o 


EXPLANATION 


OPER. 


ADDRESS 


0004 


SET 


0001 


01 






a0 


+ 




0009 


LOD 


1013 


01 






a* 


+ 


Group mark 


0014 


TINT. 


13061 


01 






a* 


+ 


Put G/M in output record 


0019 


SET 


0004 


02 






aOOOO 


+ 


4 zeros for no w.h. 


0024 


SET 


0003 


03 






aOOO 


^ 


3 zeros for no FICA 


0029 


SEL 


0200 












Input tape 


0034 


RD 


1150 












Read first record 




































Transmit record to output area 


0039 


RCV 


12024 












Designate output area 


0044 


TMT 


1154 


00 










Transmit to output area 




































Test for withholding tax 


0049 


RAD 


12027 


00 


a5 


+ 






Tax class 


0054 


MPY 


1003 


00 


a06500 


- 






Tax class x 13. 00=exempt. amt. 


0059 


ADD 


12048 


00 


a!2075 


+ 






Gross - exmpt. amt. =tax gross 


0064 


TRP j 


0079 


00 










To calc. withholding tax 


0069 


ST 


12052 


02 










No withholding tax - put 4 zeros 


















in output 


0074 


TR 


0104 












To test for FICA 




































Calc. withholding tax 


0079 


MPY 


1005 


00 


a02 17350 


+ 






Taxable amt. x 18% w.h. tax 


0084 


RND 


0002 


00 


a02174 


+ 






Adiust to nearest cent 


0089 


SET 


0004 


00 


a2174 


+ 






Adjust to 4 places 


0094 


ST 


12052 


00 


a2174 


+ 






Put w. h. tax in output record 


0099 


ADM 


12039 


00 


a2174 


+ 






Adjust v.t.d. w.h. tax 




































Test for FICA 


0104 


RAD 


1012 


00 


a420000 


+ 






42000 


0109 


SUB 


12033 


00 


a005000 


+ 






Y. t.d. gross 


0114 


TRP 


0129 


00 










To test for partial FICA 


0119 


ST 


12055 


03 










No FICA - put 3 zeros in output 


0124 


TR 


0179 












To calc. net pay 


0129 


SUB 


12048 


00 


a013575 


— 






Gross 


0134 


TRP 


0149 


00 










To full FICA calc. 




































Partial FICA calc. 


0139 


ADD 


12048 


00 


a005000 


+ 






Add back gross 


0144 


TR 


0154 




• 








To multiply by 2%. 
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PROBLEM 22. PAYROLL Page 2 of 2 



1NSTR. 
LOCATION 


INSTRUCTION 


STOR. 
CODE 


ACCUMULATOR 00 


z 
o 


AUXILIARY 
STORAGE 01-15 


z 
O 


EXPLANATION 


OPER. 


ADDRESS 


















Full FICA calc. 


0149 


RAD 


12048 


00 


al8575 


+ 






Gross 




















0154 


MPY 


1006 


00 


aOOlOOOO 


+ 






Gross x 2% = FICA 


0159 


RND 


0002 


00 


aOOlOO 


+ 






Adiust FICA to nearest end 


0164 


SET 


0003 


00 


alOO 


+ 






Adiust to 3 places 


0169 


ST 


12055 


00 


alOO 


+ 






Put FICA in output record 


0174 


ADM 


12043 


00 


alOO 


+ 






Adjust y.t.d. FICA 




































Calc. net pay 


0179 


RAD 


12048 


00 


al8575 


+ 






Gross 


0184 


ADM 


12033 


00 


al8575 


+ 






Adjust y.t.d. gross 


0189 


SUB 


12052 


00 


a 16401 


+ 






Withholding tax 


0194 


SUB 


12055 


00 


al6301 


+ 






FICA 


0199 


ST 


12060 


00 


a!6301 


+ 






Put net pay in output record 




































Write record 


0204 


SEL 


0200 












Input tape 


0209 


RWW 


1150 












Prepare input to read 


0214 


SEL 


0201 












Output tape 


0219 


WR 


12020 


00 










Write record and read simul. 


0224 


TRS 


0284 












End of output tape 


0229 


SEL 


0200 












Sel input tape unit 


0234 


TRS 


0344 












End of input file 


0239 


TR 


0039 












Transfer to start 




















0284 


WTM 














Tape mark on output tape 


0289 


RWD 














Rewind output tape 


0294 


HLT 


0001 












Stop 


0299 


TR 


0229 












Transfer to Sel input tape 




















0344 


RWD 














Rewind input tape 


0349 


SEL 


0201 












Select output 


0354 


WTM 














Tape mark on output tape 


0359 


RWD 














Rewind output tape 


0364 


HLT 


9999 












End of iob. 
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PROBLEM 23. DRUM SEARCH 



G/M 


a0014 


a2007 


aOOOO 






aOOOOOOO 




01 


02 


03 


04 


05 


06 


07 


08 










al3 






09 


10 


11 


12 


13 


14 


15 


INSTR. 
LOCATION 


INSTRUCTION 


STOR. 
CODE 


ACCUMULATOR 00 


z 
o 

</5 


AUXILIARY 
STORAGE 01.15 


z 
o 


EXPLANATION 


OPER. 


ADDRESS 


0004 


SET 


0001 


01 






a0 


+ 




0009 


LOD 


5016 


01 






a$ 


+ 


Group mark 


0014 


UNL 


2190 


01 






a? 


+ 


Put G/M at end of record 


0019 


RAD 


5008 


02 






a0014 


+ 


Constant 0014 


0024 


RAD 


5004 


03 






a2007 


+ 


Address of first shop order no. 


0029 


SET 


0004 


04 






aOOOO 


+ 




0034 


SET 


0007 


07 






aOOOOOOO 


+ 






















0039 


RAD 


5014 


13 






a 13 


+ 


Initialize counter 


0044 


SEL 


0100 












Card reader 


0049 


RD 


4001 












Read a card 


0054 


LOD 


4016 


04 






al206 


+ 


Shop order suffix no. 


0059 


UNL 


0069 


04 










Adiust sel. instr. for reading 


0064 


UNL 


0144 J 


04 










Adjust sel. instr. for writing 




















0069 


SEL 


(1206) 












Drum section 


0074 


RD 


2001 












Reading drum section 


0079 


LOD 


4012 


07 






aQR7170B 


+ 


Shop order no. from card 


0084 


CMP 


(2007) 


07 










To shop order no. from drum 


0089 


TRE j 


0119 












Shop order no. located 


0094 


SUB 


5015 


13 










Subt. 1 from counter 


0099 


TRZ 


0114 












Have tried 14 s.o. nos. 


0104 


ADM 


0084 


02 










Adjust comp. instruction 


0109 


TR 


0084 












To comp next shop order no. 


0114 


HLT 


0001 












Wrong section 




















0119 


LOD 


0084 


04 






a2021 


+ 


Address of eq. shop order no. 


0124 


ADD 


5012 


04 






a2028 


+ 


Address of cost amt. 


0129 


UNL 


0139 


04 






a2028 


+ 


Adjust 


0134 


RAD 


4021 


00 


a0941 


+ 






Cost from card 


0139 


ADM 


(2028) 


00 










Adjust cum. shop order cost 


0144 


SEL 


(1206) 












Drum section 


0149 


WR 


2001 


00 










Write back on drum 


0154 


UNL 


0084 


03 










Reset comp. address 


0159 


TR 


0039 












To read another card. 
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PROBLEM 24. READING PROGRAM INSTRUCTIONS FROM DRUM 


INSTR. 
LOCATION 


INSTRUCTION 


STOR. 
CODE 


ACCUMULATOR 00 


z 
o 


AUXILIARY 
STORAGE 01-15 


z 
o 


EXPLANATION 


OPER. 


ADDRESS 


0004 


RAD 


1533 


01 






alO 


+ 


Constant 10 


0009 


RAD 


1537 


02 






a 1014 


4 


Drum section address 




















0014 


SEL 


(1014) 












Drum section 


0019 


RD 


7750 












Each group of drum instructions 


0024 


TR 


7754 












To program from drum 




































Program from drum 


7754 


ADM 


0014 


01 










Adjust select instruction 


















To next drum section to be used 
























































9744 


TR 


0014 












To select and read next drum 


















section 






















































Last drum section 


7754 


UNL 


0014 


02 










Reset select instruction 


















to address of first 


















drum section used 
























































9744 


TR 


0014 












To select and read 1st drum section. 


PROBLEM 25. ERROR CORRECTION ROUTINE 


INSTR. 
LOCATION 


INSTRUCTION 


STOR. 
CODE 


ACCUMULATOR 00 


z 
o 


AUXILIARY 
STORAGE 01-15 


z 
o 


EXPLANATION 


OPER. 


ADDRESS 


0004 


SET 


0001 


01 






a0 


+ 




0009 


LOD 


5003 


01 






a* 


+ 


Group mark 


0014 


UNL 


6381 


01 






a :: 


+ 


Put G/M at end of record 






































0029 


RAD 


5001 


03 






a2 


+ 


Place 2 in ASU 03 


0034 


SEL 


0200 












Input tape 


0039 


RD 


6363 












Read record 


0044 


SEL 


0902 












R/W indicator 


0049 


TRS 


0104 












Tr on error 


0054 


RAD 


6374 


00 


a0!20990 


+ 






Commission % 


0059 


MPY 


6367 


00 


a000483960 


+ 






% x sales amt. = comm. amt. 


0064 


RND 


0002 


00 


a0004840 


+ 






Adjust to nearest cent 


0069 


SET 


0006 


00 


a004840 


+ 






Prepare for storing 


0074 


ST 


6380 


00 


a004840 


+ 






Store result 


0079 


SEL 


0201 












Output tape 


0084 


WR 


6363 


00 










Write record 


0089 


TR 


0029 












Transfer to main routine 






































0104 


SEL 


0200 












Input tape 


0109 


BSP 














Backspace tape 


0114 


SUB 


5002 


03 










Counter goes to +1, and -1 


0119 


TRP 


0039 


03 










To re-read 


0124 


HLT 


0001 












3rd read error. 
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PROBLEM 26. 



TRANSFER ANY TO DETECT END OF FILE AND READING 
ERRORS USING NORMALIZE AND TRANSFER COUNTER 



INSTR. 
LOCATION 


INSTRUCTION 


STOR. 
CODE 


ACCUMULATOR 00 


z 
o 


AUXILIARY 
STORAGE 01-15 


z 
o 


EXPLANATION 


OPER. 


ADDRESS 


0004 


SET 


0001 


02 






a0 


+ 




0009 


LOD 


17003 


02 






a* 


+ 


Group mark 


0014 


UNL 


19106 


02 






a* 


+ 


Unload group mark 




















0029 


SET 


0003 


03 






aOOO 


+ 


Counter for normalize & transfer 


0034 


SEL 


0200 












Input tape 


0039 


RD 


19000 












Read record 


0044 


TRA 


0604 












0902 - EOF 


0049 
















Main routine 
























































0409 


SEL 


0400 












Printer 


0414 


WR 


19000 


00 










Write record 


0419 


TRA 


0704 












0902 - 0903 - EOF 


0424 












































Input 










0604 


TRS 


0624 












End of file 


0609 


SEL 


0902 












R/W check indicator 


0614 


TRS 1 


0634 












R/W error 


0619 


TR 


0049 












Continue main routine 


0624 


RWD 














Rewind tape 


0629 


HLT 


0001 














0634 


SEL 


0200 












Input tape 


0639 


BSP 














Backspace 


0644 


NTR 


0039 


03 










To re-read 


0649 


HLT 


0002 












3rd read error 














































Output 










0704 


TRS 














End of Dage 


0709 


SEL 


0902 














0714 


TRS 














R/W error 


0719 


SET, 


0903 














0724 


TRS 














P/P error. 


0729 


TR 


0424 
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ROBLEM 21 


Page 1 of 2 




I. SET 






LOD 






CMP 






TRH 






TRE 






n. RAD 






CMP 






TRH 






TRE 






IE,, RAD 


4063 


XXXXX. XX 


SET 


0008 


OXXXXX. XX 


LNG 


0002 


OXXXXX. xxoo 


DIV 


4067 


XX. xxxx 


RND 


0001 


XX. XXX 


ST 


4072 





IV. 1. If size of sum is longer than either operand when adding and subtracting. 

2. Value of divisor is < or = same number of digits on left side of dividend. 

3. Overflow when rounding. 

Turn OFF by interrogating 0904 by Sel 0904 and Tr Sig instructions. 



V. Store - Moves sign of accumulator with unit digit stored 
Operates on only numerical part of characters 
Checks position on left of high order digit stored, 
signed plus.) 



(If it is a number it is 



Unload- Moves characters as they appear 
Sign of accumulator has no effect. 



VI. R Add 

Read (from tape) 

Unload 

Subtract 

Write 

Read (from card) 

Store 

Load 

Read (from drum) 

Compare 

Multiply 

ADD Memory 

(signed field) 
ADD Memory 

(unsigned field) 
Transmit 00 
Transmit 01-15 



Non-Numerical character in memory 

Inter-record gap 

"a" storage mark 

Non-Numerical character and storage mark 

00 Group Mark (01) memory position 19999 - 39999 

End of card 

"a" storage mark 

"a" storage mark 

Drum mark 

"a" mark 

"a" storage mark 

Non-Numerical character 

"a" storage mark 

R/M in units position of any five characters transmitted 

"a" storage mark 
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PROBLEM 27. Page 2 of 2 

VH. Sum of number of digits in multiplier and multiplicand. 

Difference between number of digits in divisor and dividend 



VIII. 



RND 
SET 
LNG 



0004 
0002 
0002 



a0145638 

a015 

al5 

a!500 



IX. Tape (Write Status) 
Tape (Read Status) 
Card Reader 
Printer 
Drum 



Reflective Spot 

Tape Mark 

Read Instruction following processing of last card 

Hole in channel 12 of carriage tape 

Attempting to read or write off drum 



X. The zone bit structure over the tens and hundreds position of the address. 
XI. Any end of file or check indicator will cause the Tr Any instruction to be effective. 

XI1 ' <a) ™2Ps£Z d :T Cter ^ S6nSed WhGn ^^ Ch — * *™ ™^ to the 
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PROBLEM 28. LOW NUMBER SEARCH 



1NSTR. 
LOCATION 


INSTRUCTION 


STOR. 
CODE 


ACCUMULATOR 00 


z 
o 


AUXILIARY 
STORAGE 01-15 






OPER. 


ADDRESS 


!/] 




0004 


SET 


0005 


00 


aOOOOO 


+ 






Prepare accum. 5 positions 


0009 


LOD 


5774 


00 










Load first number 


0014 


CMP 


5779 


00 










Compare first and second number 


0019 


TRH 


0039 












If first number is high go to 0039 


0024 


CMP 


5884 


00 










If low number compare to 3 


0029 


TRH 


0059 












If number is high eo to 0059 


0034 


TR 


0064 












If number is low number is found 


0039 


LOD 


5779 


00 










Load number 2 


0044 


CMP 


5884 


00 










Compare 2 to 3 


0049 


TRH 


0059 












If number 2 is high, go to 0059 


0054 


TR 


0064 












If number 2 is low, go to 0064 


0059 


LOD 


5884 


00 










Load number 3 


0064 


UNL 


9004 


00 










Unload low number 


0069 


HLT 


0001 












Stop machine. 



PROBLEM 29 . INSTRUCTION MODIFICATION PROBLEM; ADDING 100 FACTORS. 



INSTR. 
LOCATION 


INSTRUCTION 


STOR. 
CODE 


ACCUMULATOR 00 


Z 



AUXILIARY 
STORAGE 01- 15 


z 


EXPLANATION 


OPER. 


ADDRESS 


LO 


0004 


RAD 


1904 


01 






a0003 


+ 


Constant 0003 


0009 


RAD 


1908 


02 






a0006 


+ 


Constant 0006 


0014 


RAD 


1912 


03 






al003 


+ 


Address of first 3 digit total 


0019 


RAD 


1916 


04 






a 13 06 


+ 


Address of first 6 digit total 


0024 


RAD 


1920 


05 






al300 


+ 


Address of last 3 digit total 
























































1029 


UNL 


1039 


03 






al003 


+ 


Adjust to first 3 digit address 


1034 


UNL 


1044 


04 






al306 


+ 


Adjust to first 6 digit address 


1039 


RAD 


(1003) 


00 










3 digit total 


1044 


ADM 


(1306) 


00 










3 digit total and 6 digit total 


1049 


CMP 


1039 


05 










Comp. address of last 6 dig. total 


1054 


TRE 


1074 












Continue program 


1059 


ADM 


1039 


01 










Increase r add address by 3 


1064 


ADM 


1044 1 02 










Increase add mem address by 3 


1069 


TR 


1039 i 










To repeat accumulation 


1074 
















Continue program 
























































4149 


TR 


1029 












Repeat program. 
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PROBLEM 30. CHANGE TAPE ADDRESS ON END OF FILE 



INSTR. 
LOCATION 


INSTRUCTION 


STOR. 
CODE 


ACCUMULATOR 00 


z 
o 


AUXILIARY 
STORAGE 01-15 


Z 





OPER. 


ADDRESS 


t/i 


EXPLANATION 


0OQ4 


RAD 


13069 


00 


a0201 


+ 








0009 


UNL 


0104 


00 


a201 


+ 






Initialize input .tape unit 


0014 


RAD 


13073 


00 


a0202 


+ 








0019 


UNL 


0119 


00 


a0202 


+ 






Initialize output tape unit 


0024 


SET 


0002 


02 






a00 


+ 


Set ASU 02 two places 





















0104 


SEL 


(0201) 












Input tape unit 1 


0109 


RD 


1000 












Read record 


0114 


TRS 


0204 












End of file 


0119 


SEL 


(0202) 












Output tape unit 


0124 


WR 


1000 


00 










Write record 


0129 


TRS 


0304 












End of file 


0134 


TR 


0104 
































0204 


RWD 














Rewind input tape 


0209 


IOF 














Turn indicator off 


0214 


LOD 


0104 


02 






aOl 


+ 


Low order position of address 


0219 


SUB 


13065 


02 






a05 


- 


Subt from constant 


0224 


UNL 


0104 


02 






a05 


_ 


Unload in Sel address 


0229 


TR 


0119 
































0304 


WTM 














Tape mark on output tape 


0309 


RWD 














Rewind tape 


0314 


IOF 














Turn indicator off 


0319 


LOD 


0119 


02 






a02 


+ 


Low order positions of address 


0324 


STTR 


13065 


0?i 






a04 


_ 


Subt from constant. 


0329 


UNL 


0119 


02 






a04 


- 


Unload in Sel address. 


0334 


TR 










- 







26 



PROBLEM 3 1. NOP/TR SWITCH 



INSTR. 
LOCATION 


INSTRUCTION 


STOR. 

CODE 


ACCUMULATOR 00 


z 
o 


AUXILIARY 
STORAGE 01-15 


z 




OPER. 


ADDRESS 


to 




0004 


SET 


0001 


01 






a0 


+ 




0009 


LOD 


1560 


01 






a* 


+ 


Group mark 


0014 


UNL 


3034 


01 






a* 


+ 




0019 


SET 


0003 


02 






aOOO 


+ 




0024 


SET 


0005 


03 






aOOOOO 


+ 






















0029 


SEL 


0200 












Input tape unit 


0034 


RD 


3001 












Master record 


0039 


(NOP) 


0114 












Switch 


0044 


SEL 


0100 












Card reader 


0049 


RD 


2021 












Change card 


0054 


LOD 


2025 


03 






a64027 


+ 


Employee no. 


0059 


CMP 


3005 


03 






a64027 


+ 


Card vs. master 


0064 


TRH 


0104 












Tr to set switch 


0069 


TRE 


0079 












Tr to change rate 


0074 


HLT 


0001 












Unmatched card - stop 




















0079 


RCV 


3031 












Get rate from card 


0084 


TMT 


2026 


02 










Transmit to master 


0089 


SEL 


0201 












Output tape 


0094 


WR 


3001 


00 










Master record 


0099 


TR 


0029 












To read another record 




















0104 


SGN 


0035 


00 


afo 


+ 






Set switch to B 


0109 


TR 


0089 












To write maste r 




















0114 


SGN 


0035 


00 


a& 


+ 






& 


0119 


ADM 


0035 


00 


a& 


+ 






Set switch to A 


0124 


TR 


0059 












To compare. 
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PROBLEM 32. NOP/TR SWITCH 



INSTR. 
LOCATION 



0004 



0009 



0014 



0019 



0024 



0029 



0034 



0039 



INSTRUCTION 



SET 



LOP 



UNL 



UNL 



SET 



ADDRESS 



0001 



156 3 



4042 



5034 01 



STOR. 
CODE 



01 



£L 



01 



0004 _04 



SEL 



RD 



0044 
0049 



(NOP) 



SEL 



RD 



0054 



0059 



0064 



0069 



0074 



0079 



0084 



LOD 



CMP 



TRE 



0200 



4001 



0059 



0202 



5020 



5023 



4004 



ACCUMULATOR 00 



04 



SGN 



ADM 



TRH 



HLT 



0089 



0099 



0094 



0104 



0109 



0114 



0119 
0124 



(NOP) 



0089 



0069 



0085 



0129 



0001 



SGN 



ADM 



SEL 



WR 



SEL 



WR 



TR 



0109 



0085 



0035 



04 



03 



03 



03 



AUXILIARY 
STORAGE 01-15 



a0 



aooon 



EXPLANATION 



Orniip marl; 

Put G/M at end of master record 



Put G/M a t end of detail record 



aB439 



aB439 



a& 



a& 



0201 



4001 



0201 



5020 



0044 



I 0129 I SGN 003S 



03 



00 



00 



0134 | TR [ QQ29 



03 



a& 



Input tape 



Read ma ster reco rd 



Switch 1 



Detail input tape 



Read detail record 



Detail product no , 
Detail vs. master 



Detail = ma.st.pr 



a& 



a& 



Set switch 2 to No Op 
Detail > master 



Unmatched detail 



Switch 2 



Set switch 2 to Tr 



Set switch 1 to No Op 



Output tape 



Write master record 



Output tap fi 



Write detail line 



To read another detail 



Set switch 1 to Tr 



To read master, 



PROBLEM 33. DIGIT SELECTION; VARIABLE INTERVAL CODE 



INSTR. 
LOCATION 



0404 



0409 



0414 



0419 



INSTRUCTION 



OPER. 



RAD 



CMP 



TRE 



0424 



0429 



0434 



0439 



0444 



0449 



0454 



CMP 



TRE 



CMP 



TRE 



0910 



0612 



0614 



0616 



CMP 



TRE 



CMP 



TRE 



0459 [ HLT 



STOR. 
CODE 



01 



01 



01 



01 



0618 



0620 



0001 



01 



ACCUMULATOR 00 



AUXILIARY 
STORAGE 01-15 



a09 



01 



a09 



EXPLANATION 



Code from trans, record 



01 



Sub routine for 01 



04 



Sub routine for 04 



09 



Sub routine for 09 



26 



Sub routine for 26 



34 



Sub routine for 34 



Unmatched trans, record. 
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PROBLEM 34. DIGIT SELECTION; UNIFORM INTERVAL CODE 



INSTR. 
LOCATION 


INSTRUCTION 


STOR. 
CODE 


ACCUMULATOR 00 


z 



AUXILIARY 
STORAGE 01-15 


zl 




OPER. 


ADDRESS 


<S> 




0004 


SET 


0004 


01 






a0000 


+ 




0009 


LOD 


0917 


01 






a9979 


4- 


Address of first code 




















0014 


UNL 


0034 


01 






a9979 


4- 


Set transfer 


0019 


RAD 


0910 


00 


a6 ' 


4 






Code 


0024 


MPY 


0913 


00 


a0030 


4 






x005 


0029 


ADM 


0034 


00 










Adjust pivot address 




















0034 


TR 


(10009) 












Transfer address 




















9979 


TR 


— 












sub routine 


9984 


TR 


— 












1 sub routine 


9989 


TR 


— 










1 2 sub routine 


9994 


TR 


~ 












3 sub routine 


9999 


TR 


— 












4 sub routine 


10004 


TR 


— 












5 sub routine 


10009 


TR 


— 












6 sub routine 


10014 


TR 


— 












7 sub routine. 


10019 


HLT 


0001 












8 


10024 


HLT 


0002 












9 
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PROBLEM 35. TABLE LOOK-UP 



t 4 £ 5 $ 5 J 



* 8$ 



OJ ^ CO 

OS o o 

CO en CO 

o o o 



in 

o 

en 

o 



t- 

o 

Oi 

© 



en r* 

O y-i 

en en 

o o 



en 
o 



en 

o 



en 

© 



en 

o 



b 


1 


+ 
1 


t 





5 





8 


9 


J 5 


to 


1 


1 





9 


10 


9 


1 


9 





























o o 

o © 



©■ 



CO © 

© 1-1 

© © 



cq 

i-i 
© 



3 
© 



© 



















01 


02 


03 


04 


05 


06 


07 


08 
















09 




10 


11 


12 


13 


14 


15 


INSTR. 
LOCATION 


INSTRUCTION 


STOR. 
CODE 


ACCUMULATOR 00 


§ AUXILIARY 
£ STORAGE 01-15 


J EXPLANATION 


OPER. 


ADDRESS 


0004 


RAD 


1001 


00 


all 


4- 


Number of items dIus one 


0009 


CMP 


1014 


00 


all 


+ 


n to constant one 


0014 


TRH 


0024 


00 






When n > one 


0019 


HLT 


0001 








If n = one 


0024 


MPY 


1002 


00 


a055 


1- 


nx 5 


0029 


RND 


0001 


00 


a06 


f 


Round n 


0034 


ST 


1001 


00 


a06 


f 


Store n for next try 


0039 


MPY 


1004 


00 


a012 


f 


n x length of items 


0044 


ADD 


1008 


00 


a0911 


H 


+ calculated address = address 


0049 


ST 


1008 


00 


a0911 


t- 


of first item. Address of first 


0.054 


CMP 


1018 


00 


a0911 


1- 


item used to check if search is 














beyond limits of table 


0059 


TRH 


0089 








To compare against address of 














last item 


0064 


TRE 


0099 








To compare number when 


0069 


SGN 


1004 


01 




a- 


Calculated addr. is lnwwr than 


0074 


SGN 


1014 


01 




a& h 


the address of the first item 


0079 


ADM 


1004 


01 




a& 


i- sien length field plus 


0084 


TR 


0004 








TR to recalc n adrirpss 


0089 


CMP 


1022 


00 






Check if search is 














beyond limits of table 


0094 


TRH 


0134 








To chanse lenerth to minuR 


0099 


UNL 


0109 


00 






Calc. address intn lnnrl Inst*' 


0104 


SET 


0002 


00 






Prepare storaee unit 


0109 


LOD 


( ) 


00 






Item at calc. address 


0114 


CMP 


1010 


00 






Number searched for 


0119 


TRH 


0134 








To change length to minus 


0124 


TRE 


0159 








Number located 


0129 


TR 


0069 








To change length to plus 


0134 


SGN 


1004 


01 




a& 4 


Change sign of 


0139 


SGN 


1012 


01 




a- 


Leneth field 


0144 


A.DM 


1012 


01 






to minus 


0149 


ADM 


1004 


01 








0154 


rR 


0004 








Repeat. 
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PROBLEM 36. SALES DISCOUNT PROBLEM (AUTOCODER SOLUTION) 



LINE 


TAG 


OPtRATION 


NUM. 


OPERAND 


COMMENTS 


007 




SET 


1 


1 




008 




LOD 


1 


A 




009 




UNL 


1 


GM 




010 




SET 


6 


6 




020 




LOD 


6 


(+010000) 




030 


RD RCD 


SEL 




200 




040 




RD 




SALES RCD 




050 




CMP 


6 


GR SALES 




060 




TRH 




LODISC 


Sales below 100.00 


070 




TRE 




LODISC 




080 




RAD 




(+03) 




090 




TR 




CALC 




100 


LODISC 


RAD 




(+02) 




110 


CALC 


ST 




DISC % 




120 




MPY 




GR SALES 




130 




RND 




2 




131 




SET 




5 




140 




ST 




DISC AMT 




150 




RSU 




DISC AMT 




160 




ADD 




GR SALES 




170 




ST 




NET SALES 




180 




SEL 




201 




190 




WR 




SALES RCD 




200 




TR 




RDRCD 




210 












220 


SALES RCD 


DRCD 








230 


INV NO 




6 






240 


DATE 




5 






250 


CUST NAME 




33 






010 


GR SALES 




6 






020 


DISC% 




2 






030 


DISC AMT 




5 






040 


NET SALES 




6 






050 


GM 




1 
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PROBLEM 37. STORE FOR PRINT (AUTOCODER SOLUTION) 



LINE 


TAG 


OPI RATION 


NUM. 


OPERAND 


COMMENTS 


009 

010 




■SET 
LOD 


1 
1 


,s 




020 




UNL 


1 


OUCOST -4 | 




030 




UNL 


1 


OVALUE -3 | 




040 




SET 


15 


30 | 




050 




SET 


6 


6 I 




060 


MAIN RT 


SEL 




200 1 




070 




RD 




INPUT RCD I 




080 




LOD 


1 


(.) 1 




070 




UNL 


1 


OVALUE -7 | 




100 




UNL 


1 


OVALUE -11 | 




110 




RCV 


6 


OCODE | 




120 




TMT 


6 


ICODE | 




130 




RCV 


15 


ODESCR | 




140 




TMT 


15 


IDESCR | 




150 




RAD 




IQTY 1 




160 




SPR 




OQTY | 




170 




MPY 




IUCOST I 


To get value 


180 




RND 




1 | 




190 




SPR 




OVALUE | 




200 




RAD 




IUCOST | 




210 




SPR 




OUCOST | 




220 




SEL 




200 | 




230 




RWW 




INPUT RCD | 




240 




SEL 




201 I 




250 




WR 




OUTPUT RCD| 




260 




TR 




MAIN RT | 




010 


INPUT RCD 


DRCD 








020 


ICODE 




6 






030 


IDESCR 




30 






040 


IOTY 




5 






050 


IUCOST 




5 






060 


OUTPUT RCD 


DRCD 








070 


O CODE 




7 






080 


ODESCR 




31 






090 


OOTY 




6 






100 


OUCOST 




7 






110 


OVALUE 




13 






120 




DCON 








130 


GM 




1 


* | 
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PROBLEM 38. ALTERNATOR (AUTOCODER SOLUTION) 



LINK 


TAG 


Off RAT ION 


NUM. 


OPERAND 


COMMENTS 


010 


INITIAL 


SGN 




(-D 1 


Restore alternator 


020 




SGN 




(-5) I 


constant to minus 


030 




ADM 




(-5) I 




040 




ADM 




(-1) 1 




050 


RDRCD 


SEL 




200 1 




060 




RD 




PAY RCD | 




070 




SEL 




902 | 




0B0 




TRS 




902 ERR 1 




090 










Normal Routine 


100 


902 ERR 


SEL 




200 1 




110 




BSP 








120 




RSU 




(-1) 1 




130 




ST 




(-1) 1 




140 




TRP 




RD RCD 1 




150 




HLT 




1111 1 




160 




TR 




INITIAL I 




170 












180 












190 












200 












210 












220 












230 












240 












250 
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PROBLEM 39. WRITE AND ERASE (AUTOCODER SOLUTION) 



LINE 


TAG 


OP! RATION 


NUM. 


OPERAND 


COMMENTS 


008 




SET 


4 


4 




009 




SET 


2 


2 




010 




SET 


15 


20 




019 




SET 


1 


1 




020 


BEGIN RT 


SEL 




200 




021 




RD 




INPUT RCD 




022 




LOD 


1 


(.) 




030 




UNL 


1 


PSALES -2 




031 




LOD 


1 


(*) 




032 




UNL 


1 


GM 




040 




RAD 




ISALES 




050 




SPR 




PSALES +1 




060 




RCV 


15 


PSALESMAN 




070 




TMT 


15 


ISALESMAN 




080 




LOD 


4 


ISTATE 


State & district 


090 




CMP 


4 


(0000) 


Previous district & state 


100 




TRE 




PRINT 


Same district & state 


110 




TRH 




NEW STATE 




120 




HLT 




1111 


Error 


130 


NEW STATE 


LOD 


2 


ISTATE 




140 




UNL 


2 


(0000) 




150 




UNL 


2 


PSTATE 




160 




LOD 


2 


IDISTR 




170 




.CMP 


2 


(0000) -2 


Previous district 


180 




TRE 




PRINT 


Same district 


190 




UNL 


2 


(0000) -2 


District 


200 




UNL 


2 


PDISTR 




210 


PRINT 


SEL 




400 




220 


OF LOW 


WRE 




PRINT RCD 




230 




TR 




BEGIN RT 




010 


INPUT RCD 


DRCD 








020 


IDISTR 




2 






030 


ISTATE 




2 






040 


ISALESMAN 




20 






050 


ISALES 




7 






060 


PRINT RCD 


DRCD 








069 


CTRL CHAR 




1 






070 


PDISTR 




2 






080 






3 






090 


PSTATE 




2 






100 






3 






no 


PSALESMAN 




20 






120 






3 






130 


PSALES 




8 






140 






1 






150 


GM 




1 
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PROBLEM 40. CARRIAGE CONTROL (AUTOCODER SOLUTION) 



LINE 


TAG 


OPERATION 


NUM. 


OPERAND 


COMMENTS 


Oil 




RAD 


5 


(+0) 




012 




RAD 


6 


(+1) 




201 




UNL 


5 


CTRL CHAR 


For double space 


211 




TRS 




CARCON 




240 


CARCON 


UNL 


6 


CTRL CHAR 


For skipping 


250 




IOF 








260 




TR 




OF LOW 





PROBLEM 41. NORMALIZE AND TRANSFER (AUTOCODER SOLUTION) 



LINE 


TAG 


OPERATION 


NUM. 


OPERAND 


COMMENTS 


009 




SET 




1 




010 




LOD 




($) 




020 




UNL 




OUTPUT -8 




030 




LOD 




(•) 




040 




UNL 




OUTPUT -3 




050 




LOD 




(*) 




060 




RAD 




(+0001) 




070 




SET 




4 




080 




LOD 




ADDR $ 


Restore control 


090 




UNL 




CALC ADDR 




100 




SET 


6 


6 




110 




LOD 


6 


INPUT 




120 


NORMALIZE 


NTR 


6 


ADDR ADJ 




130 


PRINT 


SPR 


6 


OUTPUT 




131 




TR 






Continue Main Routine 


140 


ADDR ADJ 


ADM. 


7 


CALC ADDR 




150 




LOD 




CALC ADDR 


Adjusted * address 


160 




UNL 




PLACE ADJ 




170 


PLACE ADJ 


UNL 


1 






180 




CMP 




CTRL ADDR 




190 




TRE 




PRINT 




200 




TR 




NORMALIZE 




210 


ADDR $ 


LACON 


1 


OUTPUT 




220 


ADDR * 


LACON 




OUTPUT +4 




230 




DCON 








240 


CALC ADDR 




4 


0000 




250 


INPUT 


DRCD 


6 






260 


OUTPUT 


DRCD 


9 
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